fuente: https://github.com/DiegoKoz/discursos_presidenciales

Consigna: realizar los mismos ejercicios de la práctica guiada (Wordclowd y Topic Modelling) para el dataset de discrusos presidenciales que se encuentra en la carpeta fuentes.

library(tidyverse)
── Attaching packages ───────────────────────────────────────────────────────────────────────────────── tidyverse 1.2.1 ──
✔ ggplot2 3.2.1     ✔ purrr   0.3.2
✔ tibble  2.1.3     ✔ dplyr   0.8.3
✔ tidyr   1.0.0     ✔ stringr 1.4.0
✔ readr   1.3.1     ✔ forcats 0.4.0
── Conflicts ──────────────────────────────────────────────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter()  masks stats::filter()
✖ purrr::is_null() masks testthat::is_null()
✖ dplyr::lag()     masks stats::lag()
✖ dplyr::matches() masks tidyr::matches(), testthat::matches()
df <- read_rds('../fuentes/discursos_presidenciales.rds')
df
LS0tCnRpdGxlOiBNaW5lcsOtYSBkZSBUZXh0b3MKb3V0cHV0OgogIGh0bWxfbm90ZWJvb2s6CiAgICB0b2M6IHllcwogICAgdG9jX2Zsb2F0OiB5ZXMKZGF0ZTogIiIKc3VidGl0bGU6IFByw6FjdGljYSBpbmRlcGVuZGllbnRlCi0tLQoKCmZ1ZW50ZTogaHR0cHM6Ly9naXRodWIuY29tL0RpZWdvS296L2Rpc2N1cnNvc19wcmVzaWRlbmNpYWxlcyAKCgo+IENvbnNpZ25hOiByZWFsaXphciBsb3MgbWlzbW9zIGVqZXJjaWNpb3MgZGUgbGEgcHLDoWN0aWNhIGd1aWFkYSAoV29yZGNsb3dkIHkgVG9waWMgTW9kZWxsaW5nKSBwYXJhIGVsIGRhdGFzZXQgZGUgZGlzY3J1c29zIHByZXNpZGVuY2lhbGVzIHF1ZSBzZSBlbmN1ZW50cmEgZW4gbGEgY2FycGV0YSBmdWVudGVzLgoKYGBge3Igc2V0dXB9CmxpYnJhcnkodGlkeXZlcnNlKQpgYGAKCgpgYGB7cn0KZGYgPC0gcmVhZF9yZHMoJy4uL2Z1ZW50ZXMvZGlzY3Vyc29zX3ByZXNpZGVuY2lhbGVzLnJkcycpCmRmCmBgYAoK